home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / programm / gemfsc20 / gemfsc20.lzh / GEMFBIND / AESEVNT2.S < prev    next >
Text File  |  1993-03-26  |  1KB  |  58 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST Public Domain GEM bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8.  
  9. ;*************************************************************************
  10. ;*
  11. ;* Event manager routines 2 of 3.
  12. ;*
  13. ;*************************************************************************
  14.  
  15. ;-------------------------------------------------------------------------
  16. ; evnt_multi - everybody's favorite.
  17. ;-------------------------------------------------------------------------
  18.  
  19.           globl     _evnt_multi
  20. _evnt_multi:
  21.  
  22. flags     = 8
  23. pmbufold = 36
  24. pmbufnew = 40
  25. countlo  = 40
  26. counthi  = 42
  27. px         = 44
  28. py         = 48
  29. pbutton  = 52
  30. pstate     = 56
  31. pkreturn = 60
  32. pbreturn = 64
  33.  
  34.           link        a6,#-14
  35.  
  36.           move.l    pmbufnew(a6),d0             ; Swap timer counts & buffer
  37.           move.l    pmbufold(a6),pmbufnew(a6)    ; pointer; puts all 'intin'
  38.           move.l    d0,pmbufold(a6)             ; parms together on stack.
  39.  
  40.           move.l    #$19100701,d0       ; AControl  25,16,7,1
  41.  
  42.           moveq.l    #-14,d1             ;  = intout
  43.           lea        flags(a6),a1       ; -> intin
  44.           lea        pmbufnew(a6),a0    ; -> addrin
  45.  
  46.           jsr        aes_call
  47.  
  48.           move.l    pmbufnew(a6),d0            ; Swap the counts & ptr back
  49.           move.l    pmbufold(a6),pmbufnew(a6) ; because it isn't nice to
  50.           move.l    d0,pmbufold(a6)            ; munge the caller's stack.
  51.  
  52.           moveq.l    #-14,d1
  53.           lea        px(a6),a1
  54.           jmp        (a0)
  55.  
  56. ;          end of code
  57.  
  58.